Aminet 28/Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso/Aminet/dev/amos/AMOSList-0998.lzh/AMOSLIST/000139_bounce-amos-li…[e-mail]_Mon Sep 7 14:10:52 1998.msg

Text File | 1998-10-01 | 20KB | 2,253 lines

>From bounce-amos-list--999-mcox=[e-mail]  Mon Sep  7 14:10:52 1998
Received: from onelist.com (pop.onelist.com [209.207.164.13])
    by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id OAA00007
    for <[e-mail]>; Mon, 7 Sep 1998 14:10:52 -0400 (EDT)
Received: (qmail 25146 invoked by alias); 8 Sep 1998 18:09:34 -0000
Received: (qmail 25140 invoked from network); 8 Sep 1998 18:09:32 -0000
Received: from unknown (HELO mail.enterprise.net) (194.72.192.18) by pop.onelist.com with SMTP; 8 Sep 1998 18:09:32 -0000
Received: from enterprise.net ([e-mail] [212.1.129.12]) by mail.enterprise.net (8.8.5/8.8.5) with SMTP id TAA13568 for <[e-mail]>; Mon, 7 Sep 1998 19:10:19 +0100 (GMT/BST)
From: Andrew Crowe <[e-mail]>
To: [e-mail]
Date: Mon, 07 Sep 1998 18:07:29 +0000
Message-ID: <[e-mail]>
In-Reply-To: <[e-mail]>
X-Mailer: YAM 2.0 Preview5 - Amiga Mailer by Marcel Beck - http://www.yam.ch
Organization: Manta Soft
Mailing-List: list [e-mail]; contact http://www.onelist.com
Delivered-To: mailing list [e-mail]
Precedence: bulk
Reply-to: [e-mail]
Mime-Version: 1.0
Content-type: multipart/mixed; boundary="BOUNDARY.1191855640.1"
Subject: [amos-list] Rotating+Zooming line vectors!
Status: O
X-Status:

From: Andrew Crowe <[e-mail]>

Warning: This is a message in MIME format. Your mail reader does not
support MIME. Some parts of this message will be readable as plain text.
To see the rest, you will need to upgrade your mail reader.


--BOUNDARY.1191855640.1
Content-Type: text/plain

Hi Everybody,

    I've now done a program that lets you create and then load/save a
real 2d rotatable+zoomable  line vector object using only AMOSTurbo
extention, which is easily converted to standard amos code. (take the F
off 'F draw', 'F plot' etc.)

    (The editor is a bit crappy and you can't load into to level editor,
only after you finish in it and go into vector view mode ;)

    It could do with some optimisation, but it isn't too slow, I've
included 2 example objects:

A Starship Enterprise, an XMas_Tree , a simpler Enterprise and a simple
object.

The Enterprise and XMas_Tree updates at 25fps after compilation and the
simpler ones
updates at full speed (50 fps) on my 25mhz 040 ami ;)



Please feel free to optimise/use this code in your games, but I'd like
to see the end result please ;)



See ya.
--
                                <PRE>
  - --------------------- Quote of the day: ---------------------- -
I like work ... I can sit and watch it for hours.

+--------------------------------------------------------------------+
|                                                ,aNNN               |
|  a&   NL                 ,a,                 ,gNNNNN               |
|  @7L d 0   ,a,,aw ,a,,  JN Q,  ,a,,aw,,,,  ,gNM"`NN'               |
| J  9w"  K N" "" NN"""""WF  ~3&N" "" N   ""^N"    NF                |
| N , " , Nd ,@M, NN JML @ML d@N ,@4, N       ',  JK                 |
|d JMc dN  N  NN  NN 0 1 1J1 0 0  NN  N         L,K                  |
|N,N 0w' Na@h,,a,,NQ,0 &J1J&,0  \,,a,,N         JF                   |
| ""  "  ~"  ""~"""~"" ""  """  t""~"""        j"1                   |
|                               F             JgmJ        ,gm        |
|                               F            N"  N  ,,    F ,N gNN   |
|      Andrew Crowe             Q          jJF  mP p""9w,NL NwmP 0mw |
|      ~~~~~~~~~~~~             ]         / I  0 F@ am, Nw  ,0&   ,N |
|       Manta Soft             ,F\      a' ,N  Nf L E 0 0ML N""N 0"  |
|       ~~~~~~~~~~            ,N  \,  ,P N@"  JF  & `@" NJL N  N 0   |
|                            ,N     ad"   \wam"   `Nx,aN JNmN  NmN   |
|                            NN ,,gN" ""PP"                          |
|                           dNNNNN"                                  |
|                           NNN@"      Web Designing and          // |
| Visit our Web Site:       ""               Amiga Programming \\//  |
|                                                                    |
|     HTTP://www.geocities.com/Eureka/Gold/1713/                     |
|                                                                    |
+----------------------------+      This signature was created using |
| [e-mail] |         AsciiArt Studio               |
+----------------------------+---------------------------------------+
                                </PRE>/

--BOUNDARY.1191855640.1
Content-Type: text/plain; charset=iso-8859-1; name="LineRot"
Content-Disposition: attachment; filename="LineRot"
Content-Transfer-Encoding: quoted-printable

Set Buffer 64
'
'Rotating line gfx by
'
'     [e-mail] =

'

Dim TMP(5,99,3),POS(5,99,3)

'
' PS. limit of 99 lines per shape  =

'    (not going to use more then that are you?)
'
' Format used to store line gfx:   =

'
' TMP(shape_no,line_no,n)  =

'
' n=3D0 - X1 =

' n=3D1 - Y1 =

' n=3D2 - X2 =

' n=3D3 - Y3 =

'  =

' Pos(shape_no,line_number,n)  =

'
' n=3D0 - Ang1 =

' n=3D1 - Dist1  =

' n=3D2 - Ang2 =

' n=3D3 - Dist2  =

'  =


GRID=3D16
'  =

' Grid Makes it easier to make shapes  =

'  =

'   ( use + and - to adjust in editor no not change that line /\ ) =

'

Degree =


'
' Use degrees! =

'


Change Mouse 2

Screen Open 0,320,200,4,Lowres
Flash Off =

Colour 1,$FFF
Colour 2,$666
Colour 3,$F00
Curs Off =

Cls 0

Double Buffer =

Autoback 0

Print At(0,0);"Please select centre of rotation"

Screen Swap =


Repeat =

   X=3DX Screen(X Mouse)/GRID
   Y=3DY Screen(Y Mouse)/GRID
   X=3DX*GRID
   Y=3DY*GRID
   CX=3DX
   CY=3DY
   Wait Vbl =

Until Mouse Key

Cls 0

Print At(0,0);"Please draw the shape with left mouse"
Print "  Middle mouse deletes last line done"
Print "(Press Right mouse when finished)"
Print =

Print "  Press mouse to continue"

Plot CX,CY


Screen Swap =


Repeat : Wait Vbl : Until Mouse Key=3D0
Repeat : Wait Vbl : Until Mouse Key
Repeat : Wait Vbl : Until Mouse Key=3D0

NUN=3D-1

BUFF=3D-1

For A=3D0 To 99
   TMP(0,A,0)=3D-1
Next =


'
'  Clear line buffer to avoid doing too many lines when drawing
'
'
'


Repeat =

   =

   X=3DX Screen(X Mouse)/GRID
   Y=3DY Screen(Y Mouse)/GRID
   M=3DMouse Key
   X=3DX*GRID
   Y=3DY*GRID
   I$=3DInkey$
   =

   If I$=3D"=3D"
      Add GRID,GRID,1 To 16
   End If =

   If I$=3D"-"
      Add GRID,-GRID/2,1 To 16
   End If =

   =

   If GRID>1
      For GX=3D0 To 320 Step GRID
         For GY=3D0 To 200 Step GRID
            F Plot GX,GY,2
         Next =

      Next =

   End If =

   =

   =

   Ink 3
   Plot CX,CY
   Ink 1
   Plot X,Y
   =

   If M=3D4
      TMP(0,BUFF,0)=3D-1
      BUFF=3DBUFF-1
      Repeat : Wait Vbl : Until Mouse Key=3D0
   End If =

   =

   If BUFF>-1
      For A=3D0 To BUFF
         F Draw TMP(0,A,0),TMP(0,A,1) To TMP(0,A,2),TMP(0,A,3)
      Next =

   End If =

   If BUFF>-1
      For A=3D0 To BUFF
         F Plot TMP(0,A,0),TMP(0,A,1),3
         F Plot TMP(0,A,2),TMP(0,A,3),3
      Next =

   End If =

   =

   If M=3D1
      OX=3DX
      OY=3DY
      Repeat =

         X=3DX Screen(X Mouse)/GRID
         Y=3DY Screen(Y Mouse)/GRID
         M=3DMouse Key
         X=3DX*GRID
         Y=3DY*GRID
         Ink 1
         F Draw X,Y To OX,OY
         =

         If GRID>1
            For GX=3D0 To 320 Step GRID
               For GY=3D0 To 200 Step GRID
                  F Plot GX,GY,2
               Next =

            Next =

         End If =

         =

         Ink 3
         Plot CX,CY
         Ink 1
         Plot X,Y
         =

         If BUFF>-1
            For A=3D0 To BUFF
               Ink 3
               F Draw TMP(0,A,0),TMP(0,A,1) To TMP(0,A,2),TMP(0,A,3)
            Next =

         End If =

         =